home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / programr / listings / ptv2n5 / powrhous.frm (.txt) < prev    next >
Visual Basic Form  |  1991-09-11  |  5KB  |  114 lines
  1. Form1
  2. AVisual BASIC - A Graphics Printing Powerhouse / M. Covington 1991
  3. Form1
  4. Picture1
  5. Command1
  6. Print Directly
  7. Command2
  8. Create a Bitmap
  9. Command3
  10. Create a BIG bitmap
  11. Command4
  12. Send Codes to Printer
  13. Command1_Click
  14. Form_Click
  15. MousePointer
  16. ScreenY
  17. printer8
  18.     ScaleMode
  19. Picture1_Click
  20. Picture1
  21. CurrentY
  22. CurrentX
  23.     LineWidth
  24.     DrawWidth
  25. DrawPicturee
  26. Command2_Click
  27. AutoRedraw
  28. Image
  29.     SaveImage
  30. Command3_Click
  31. AutoResize%
  32. AutoSize
  33. ScaleHeightD
  34. Height
  35. WidthR
  36. FontSize
  37. Command4_Click
  38. PrintDirectly_Click
  39. FINISHED
  40. Techniques
  41. printed
  42. resolution
  43. Command1_Click
  44.  "PRINT DIRECTLY" BUTTON
  45.  Uses Visual BASIC commands to plot circles anda
  46.  lines directly on the printer.p
  47.  HOURGLASS CURSOR
  48.  SCALE IN INCHES
  49. Plotting on printer...u
  50.  DRAW CIRCLES
  51. 333333
  52.  DRAW LISSAJOUS FIGURE
  53. PC Techniques"
  54.  PRINT LABEL
  55. ffffff
  56. Spooling output...u
  57.  CLOSE PRINTER
  58. Finishedu
  59.  NORMAL CURSOR
  60. Command2_Click
  61.  "CREATE A BITMAP" BUTTON
  62.  Creates an image on a bitmap file which can be 
  63.  manipulated and printed with Windows Paintbrush.
  64.  HOURGLASS CURSOR
  65.  SCALE IN INCHES
  66.  IT'S A BITMAP PICTURE
  67.  DRAW CIRCLES
  68. 333333
  69.  DRAW LISSAJOUS FIGURE
  70. PC Techniques"
  71.  PRINT LABEL
  72. ffffff
  73. EXAMPLE1.BMP
  74.  NORMAL CURSOR
  75. Command3_Click
  76.  "CREATE A BIG BITMAP" BUTTON
  77.  Creates a bitmap that is allegedly 12 x 12 inches.e
  78.  But Windows Paintbrush can "use printer resolution"
  79.  and make it 300 dpi, about 4 x 4 inches.3
  80.  HOURGLASS CURSORE
  81.  SCALE IN INCHES
  82.  IT'S A BITMAP PICTURE
  83.  in twips!
  84.  Picture1 is bigger than the screen.
  85.  No problem.
  86.  DRAW CIRCLES
  87. ffffff
  88.  DRAW LISSAJOUS FIGURE
  89. PC Techniques"
  90.  PRINT LABEL
  91. EXAMPLE2.BMP
  92.  NORMAL CURSOR
  93. Command4_Click
  94.  "SEND CODES TO PRINTER" BUTTONP
  95. Sending codes directly to printer,u
  96. which had better be LaserJet-II compatible!"u
  97.  Constructs LaserJet codes and sends to printer.
  98.  For brevity, this does NOT draw the same patterne
  99.  as the other three procedures.e
  100.  HOURGLASS CURSOR
  101.  OPEN PRINTER AS FILEP
  102.  PRINT SOME RECTANGLES
  103.  Position to column i, row i...t
  104.  Print a 50 x 100 rectangle with shading depending on i...
  105. *c50ac100bt
  106. g2P"t
  107. *p700y100Xt
  108.  POSITION PRINT CURSOR
  109. PC Techniques"u
  110.  PRINT LABEL
  111.  FORM FEED
  112.  CLOSE PRINTER
  113.  NORMAL CURSOR
  114.